home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 30
/
Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso
/
Aminet
/
dev
/
lang
/
SmallEiffel.lha
/
SmallEiffel
/
misc
/
benchmarks
/
gc
/
LaEStk
/
point.e
< prev
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1998-12-22
|
177 b
|
21 lines
class POINT
creation make
feature
x, y: REAL;
make(vx, vy: REAL) is
do
x := vx;
y := vy;
end;
set_x(vx: REAL) is
do
x := vx
end
end